home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / comm / mail / Monsoon087beta.lha / Install_Monsoon next >
Text File  |  1997-11-29  |  2KB  |  84 lines
  1. ; Monsoon Beta Install Script V1.01 (28.11.97)
  2. ; © 1996 Gary Colville
  3. ;
  4.  
  5. ; -- SET UP STRINGS ---------------------------------------
  6. (set MSG_ASKDEST "Where would you like Monsoon to be installed?\nA drawer called Monsoon will be created.")
  7. (set MSG_COPY "Please Wait - Copying Files\n")
  8. (set MSG_THANKS "Monsoon Beta now installed!\n")
  9. (set mondir "")
  10.  
  11.  
  12. ; -- GET DESTINATION DIR ----------------------------------
  13. (set dest_dir
  14.   (tackon
  15.    (askdir (prompt MSG_ASKDEST ) 
  16.                    (help @askdir-help)
  17.                    (default @default-dest)
  18.    )
  19.    "Monsoon"
  20.   )
  21. )
  22.  
  23.  
  24. ; -- MAKE DIRECTORIES --------------------------------------
  25. (set @default-dest dest_dir)      
  26. (makedir dest_dir (infos))
  27. (makedir (tackon dest_dir "Areas"))
  28. (makedir (tackon dest_dir "Images"))
  29. (makedir (tackon dest_dir "Docs"))
  30. (makedir (tackon dest_dir "Data"))
  31. (makedir (tackon dest_dir "Rexx"))
  32.  
  33.  
  34. ; -- COPY FILES --------------------------------------------
  35. (copyfiles (prompt MSG_COPY)
  36.            (help @copyfiles-help)
  37.            (source "Monsoon")
  38.            (dest dest_dir)
  39.            (infos)
  40. )
  41.  
  42. (copyfiles (prompt MSG_COPY)
  43.            (help @copyfiles-help)
  44.            (source "Monsoon.Guide")
  45.            (dest dest_dir)
  46.            (infos)
  47. )
  48.  
  49. (copyfiles (prompt MSG_COPY)
  50.            (help @copyfiles-help)
  51.            (source "C/Punarc")
  52.            (dest "C:")
  53. )
  54.  
  55. (copyfiles (prompt MSG_COPY)
  56.            (help @copyfiles-help)
  57.            (source "S/Punarc.Cfg")
  58.            (dest "S:")
  59. )
  60.  
  61. (copyfiles (prompt MSG_COPY)
  62.            (help @copyfiles-help)
  63.            (source "Libs/Config.Library")
  64.            (dest "Libs:")
  65. )
  66.  
  67.  
  68. (copyfiles (prompt MSG_COPY)
  69.            (help @copyfiles-help)
  70.            (source "Images")
  71.            (dest (tackon dest_dir "Images"))
  72.            (all)
  73. )
  74.  
  75. (copyfiles (prompt MSG_COPY)
  76.            (help @copyfiles-help)
  77.            (source "MUI")
  78.            (dest "MUI:Libs/mui")
  79.            (all)
  80. )
  81.  
  82. (exit MSG_THANKS)
  83. (exit)
  84.